home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / READFLOP.BAK < prev    next >
Text File  |  1992-03-15  |  4KB  |  114 lines
  1. ;----------------------READFLOP.SC
  2. ;------------SET UP BACK UP OPTION
  3. ;-------------------SET UP MENU LOOP
  4. CHOICE = " "
  5. WHILE CHOICE <> "EXIT"
  6.       ;----------------SHOW OPTION MENU.
  7.       SHOWMENU
  8.           "DRIVE A:" : "READ FILES FROM FLOPPY DISK DRIVE A:",
  9.           "DRIVE B:" : "READ FILES FROM FLOPPY DISK DRIVE B:",
  10.           "EXIT" : "RETURN TO MAIN MENU "
  11.       TO CHOICE
  12.       ;------------------PLAY SCRIPT OF CHOICE.
  13.       SWITCH
  14.          CASE CHOICE = "DRIVE A:" :
  15.                        CLEARALL
  16.                        CLEAR
  17.                        STYLE ATTRIBUTE 30
  18.                        @ 10,4 ?? "ENTER INDEX NUMBER FOR NEW FLOPPY : "
  19.                        ACCEPT "A5" TO I
  20.                        @ 12,4 ?? "ENTER DESCRIPTION OF DISK : "
  21.                        ACCEPT "A45" TO D
  22.                        @ 14,4 ?? "ENTER BOX NUMBER WHERE DISK IS STORED : "
  23.                        ACCEPT "A10" TO B
  24.  
  25.  
  26.  
  27.                        STYLE ATTRIBUTE 142
  28.                        CLEAR
  29.                        @ 12,12
  30.                        ?? "INSERT DISK TO READ IN DRIVE A: "
  31.                        SLEEP 5000
  32.                        CLEARALL
  33.                        CLEAR
  34.                        IF NOT DRIVESTATUS("A") THEN
  35.                         CLEAR
  36.                         @ 12,12 ?? "YOUR FLOPPY DRIVE A: IS NOT READY !!"
  37.                         SLEEP 3000
  38.                         PLAY "READFLOP"
  39.                         ELSE
  40.                             Menu {Tools} {Info} {Inventory} {Files} {A:\*.*}
  41.                             Menu {Modify}{Restructure} {List} Ins Right Menu
  42.                             {Borrow} {Floppies} End
  43.                             Del Del Del Do_It!
  44.                             EDIT "LIST" END
  45.                             LAST = RECNO()  HOME
  46.                             ALL = 0
  47.                             WHILE ALL < LAST
  48.                             [DISK #]= I
  49.                             [DISK DESCRIPTION] = D
  50.                             [LOC]=B
  51.                             DOWN
  52.                             ALL = ALL+1
  53.                             ENDWHILE
  54.                             DO_IT!
  55.                             Menu {Tools} {More} {Add} {List}
  56.                             {Floppies}  FormKey
  57.  
  58.                         ENDIF
  59.  
  60.          CASE CHOICE = "DRIVE B:" :
  61.  
  62.                        CLEARALL
  63.                        CLEAR
  64.                        STYLE ATTRIBUTE 30
  65.                        @ 10,4 ?? "ENTER INDEX NUMBER FOR NEW FLOPPY : "
  66.                        ACCEPT "A5" TO I
  67.                        @ 12,4 ?? "ENTER DESCRIPTION OF DISK : "
  68.                        ACCEPT "A45" TO D
  69.                        @ 14,4 ?? "ENTER BOX NUMBER WHERE DISK IS STORED : "
  70.                        ACCEPT "A10" TO B
  71.  
  72.  
  73.  
  74.                         STYLE ATTRIBUTE 142
  75.                         CLEAR
  76.                         @ 12,12
  77.                         ?? "INSERT DISK TO READ IN DRIVE B "
  78.                         SLEEP 5000
  79.                         CLEARALL
  80.                         CLEAR
  81.                         IF NOT DRIVESTATUS("B") THEN
  82.                         CLEAR
  83.                         @12,12 ?? "YOUR DRIVE B: IS NOT READY !!"
  84.                         SLEEP 3000
  85.                         PLAY "READFLOP"
  86.                         ELSE
  87.                   Menu {Tools} {Info} {Inventory} {Files} {B:\*.*} Menu {Modify}
  88.                   {Restructure} {List} Ins Right Menu {Borrow} {Floppies} End
  89.                   Del Del Del Do_It!
  90.                             EDIT "LIST" END
  91.                             LAST = RECNO()  HOME
  92.                             ALL = 0
  93.                             WHILE ALL < LAST
  94.                             [DISK #]= I
  95.                             [DISK DESCRIPTION] = D
  96.                             [LOC]=B
  97.                             DOWN
  98.                             ALL = ALL+1
  99.                             ENDWHILE
  100.                             DO_IT!
  101.  
  102.  
  103.                   Menu {Tools} {More} {Add} {List} {Floppies}
  104.                   FormKey
  105.                         ENDIF
  106.      ENDSWITCH
  107. ENDWHILE
  108. ;------------------EXIT
  109. CLEAR
  110. STYLE REVERSE
  111. @ 12,24
  112. ?? "RETURNING TO PREVIOUS MENU..."
  113. RETURN
  114.